// Accessing the Windows 32 bits API

//----------------------------------------------------------------------------//

function Main()

   local x := 1
   local c := "Hello" + " world " + "of Clipper 32 bits"
   local b := { || MsgInfo( ProcName() ) }

   Eval( b )

   PrinterSetup()                                 // 32 bits API function

   MsgInfo( cGetFile( "*.*", "Select a file" ) )  // 32 bits API function

   MsgInfo( ChooseColor() )                       // 32 bits API function

   MsgAlert( c )

//   MsgInfo( Str( x++ ) )
//   MsgInfo( Str( x ) )

   MsgAlert( ProcName() )
   MsgAlert( ProcLine() )

return nil

//----------------------------------------------------------------------------//
